SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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cccccccce «(Lk UU UU SSSSSSSS TTTTTTTTTT RRRRRRRR LL 000000 AAAAAA 
cceccecece Lk UU UU SSSSSSSS TTTTTTTTTT RRRRRRRR LL 000000 AAAAAA 

cc LL UU uu SS TT RR RR LL 00 OO AA AA 

cc LL UU UU SS TT RR RR LL 00 OO AA Aa 

cc LL UU uu $$ TT RR RR LL 00 OO AA Aa 

cc LL UU uu SS TT RR RR LL 00 OO AA AA 

cc LL UU UU SSSSSS TT RRRRRRRR LL 00 OO AA AA 

cc LL UU UU SSSSSS TT RRRRRRRR LL 00 OO AA Ab 

cc LL UU UU SS TT RR RR LL 00 00 AAAAAAAAAA 

cc LL UU UU SS TT RR RR LL 00 00 A 

cc LL UU UU S$ TT RR RR LL 00 OO AA AA eeee 

cc LL UU UU Ss TT RR RR LL 00 00 AA Aa eeee 
CCCCCCCC = LLLLLLLLLL © UUUUUUUUUU «-SSSSSSSS TT RR RR LLLLLLLLLL 000000 AA AM cece 
CCCCCCCC LLLLLLLLLL = UUUUUUUUUU «SSSSSSSS TT RR RR LLLLLLLLLL 000000 AA BA cove 
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LL III] SSSSSSSS 

LL Il SS 

LL II SS 

LL I] S$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 
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-MAR-1 SYS.SRCIPRMSW.MAR; (1) 
00000001 4 em ne ; SET SWITCH TO GENERATE PARAMETER DESCRIPTO 
sTHTUe thugtavet - Cluster Loadable Code Vectors 
“taper CLUSTRLOA = Cluster Loadable Code 
-IDENT ‘V04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, ” MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TRIS te ictle 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt te OF THe ABOVE Typha NOTICE. THIS SOFTWARE OR ANY OTHER 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepPORAT bk NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Executive, system services and fork level code 


ABSTRACT: 
This module contains the entry point vectors used to implement 
VMS cluster functions as well Ras the table used to hook up sneee 
vectors to the oc tyes afout ine s. This module is assembled in 
qty rrqrent nt were. Vis. defined the resultant module (CLUSTRLOA) 
s Link h the B sons loadable routines. If PRMSW is undefined, 
Ky twee Acad module (CLUSTRVEC) is Linked with SYS.EXE. 


ENVIRONMENT: Kernel mode, fork level 


OOoooooooocoo 


AUTHOR: Steve Beckhardt, CREATION DATE: 6-Jan-1983 
MODIFIED BY: 


v03-020 DWT0239 David Ww. Thiel 29-Aug-1984 
Add CNXSBUGCHECK_ tlusteR entry point. 


v03-019 DW10207 David W. Thiel 09-Apr-1984 
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Add — FAIL vector to be called on 

recovery f one power ven Add CNXSDISK _ CHANGE 
so that SYSINI and CSP a nae connection 
manager when quorum Sisk’ 4 s found 


v03-018 $RB0117 Steve Beckhardt 18-Mar-1984 
Added vectors to ge get to routines for distributed 
deadlock detection 


v03-017 purerre David W. Thiel 27-Feb-1984 
Remove the tees OBARMCDRP and CNXSDEALL_MSG BUF . 
Add CNXS$SSHUTDOWN™ entry point. Rearrange code to 
be more conservative ooeys deallocating code under 
the PC. Change the trailer PSECT name to be later 
in the collating sequence. Add patch space. 


v03-016 ADE0001 Alan D. Eldridge 10-Jan-1983 
An EXESCSP_BRDCST to vectors. 


Werets & Alan D. Eldridge 10-Jan-1983 
ag ext ESCSP_COMMAND to vectors and call to CSPSINIT in 
face alization call. 


V03-014 RSHO0S1 Scott Hanna 11-AUG-1983 
Add call to CNXSQUORUR. INIT 


v03-013 ROW0197 Ralph 0. Weber 29-JUL-1983 
Add LOADVEC definitions Pw CHXSPARTNER RESPOND, a respond to 
block transfer service, and CNXSCHANGE_QUORUM, a hook for a 
future change QUORUM dynamically ate te. 


v03-012 ROWO185 Ralph 0. Weber 24-JUN-1983 
Add yet another ton of LOADVEC statements to define entries 
for acknowledged message block transfer services. 


V03-011 RNGOO11 Rod N. Gam 13-Jun-1983 
Add entry points ly the ares thuted GETLKI syeten service. 


v03-010 JLV0268 Jake VanNoy 27-MAY-1983 
Add EXESCSP _BRKTHRUS entry 7 point for cluster broadcasts. 


v03-009 ROW0179 Ralph 0. Weber 29-APR-1983 
Add numerous LOADVEC statements to define entries for new 
nee a ae message services and distributed loch manager 
u " 


v0O3-008 PRBO162 aul R. Beck 14-APR-1983 
Add vectors for EXESALLOE “CSD. EXESDEALLOC “t8D, EXESCSP_CALL. 


V03-007 JWHO212 Jette $Y W. Horn 13-Apr-1983 
Fix mistype in JWHO20 


v03-006 — Jeffrey W. 12-Apr-1983 
e SI.VTAB macro to aaeree Load-code prologue. 


v03-005 ROW0174 Ral ph 0 Weber 29-MAR-1983 
Add LOADVEC definitions “ser ENXSALLOC CDRP, CNXSSEND_MSG, 
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V 
Ht 
HE 
HE 
He 
158 
124 ; 
14 
Bh 
000 180 ; 


"SSEP=198¢ O8:20:88 SYSVSRCHEGSrAcmans: = 88 i 


oe consis Mian and CNXSSEND_MSG_RSPID; all routines which 
aeeeet lan Surnaling facility must call to perform cluster 


v03-004 DwWT0087 David W. Thiel 23-Mar-1983 
Correct revtous gor) fregcten to return valid 
status after initialization. 


v03-003 SRBO069 Steve Beckhardt 11-Mar-1983 
Added support to allow SYSENQDEQ to be Linked with 
CLUSTRLOA for debugging purposes. Removed ceil 
LCKSGL_RQSEQNM (it 1s now in SYSCOMMON). 


v03-002 DwT0070 David W. Thiel 28-Jan-1983 
Setup to initialize automatically on being loaded. 
Adjust psects and alignment. 


CN! 
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CLUSTRLOA - Cluster Loadable Code 16-SEP-1984 00:24: AX/VMS Macro v04-00 CN) 
vou DECLARATIONS §-8 etsy 90:25:98 Leys SRCICLUSTRAMARS 1 vO 
] § -SBTTL DECLARATIONS 
, ; INCLUDE FILES: 
1 os 
1 § 3 74 
! 8 : MACROS: 
1 o 
124 IF DF ,PRMSW 
128 ; Data structure names 
14 IF TRUE_FALSE 
19 $SLODEF 3; Loadable vector definitions 
138 ; 
0 147 ; EQUATED SYMBOLS: 
are 
80 150 ; 
4 13] : VECTOR LIST 
090 138 ; 
+ 133 - IF TRUE : For inclusion with loadable code 
0000 000 138 -PSECT ___999,4 ; Octaword alignment 
000 138 PATCH_BEGIN: 
00000100 00 : 15 . 256 3; Patch space 
160 PATCH_END: 
: 196 CLULOA_END: : End of loadable code 
0000 198 -PSECT $$$000,4 
000 166 CLULOA_START: 
0 16 SLVTAB END = CLULOA_END, = 
00 168 INITRIN = CLULOA“INIT, - 
1g SUBTYP = DYNSC_CC CLS, - 
? 109 FACILITY= <CLUSTERS 
4 176 ~ 1F_FALSE 3: For inclusion with SYS.EXE 
0 r VW? -PSECT $$$500,LONG 
4 12 ALIGN LONG 
" 178 CLUSGL_CLUB: : ; Address of CLUster Block 
2 178 CLUSGL_CLUSVEC: : ; Address of Cluster System vector 
2 ! , CLUSGW_MAXINDEX: : 3; Maximum index+1 in Cluster System vector 
‘in : CLU_RSB: ; Used to make unloaded entry a NOP 
? ! Z RSB 
4 185 ALIGN LONG : 
4 1 § CLUSAL_LOAVEC:: ; New symbol to repiace next 
4 187 CLSSALZLOAVEC:: 
4 188 . 1F_TRUE_FALSE 


5 
; 
; 
; 
; 
; 


9 
9 
9 
: 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
I) 
4 
4 
g 
4 
4 
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C 
C 
C 
D 
D 
D 
E 
E 
E 
F 
F 
: 
1 
1 
1 
; 


"SSEP=198¢ 08:26:88 USNSYSRcHeLUSrkcmancs = 88° 3, 


o1,,CLULOA_START ; Cluster code load address 


ppp ap apap ag ap ap ap ag apap ty 
Z222222222222°° 
eee ee ee 
oe ena dokboae 
OM B—- Br mmm vo<k > 


ri =MSG_BUF CSB 
L°>WARACDRP_CSB 


$ 
“RESP 
$SEN RSPID 
SBLOCR_XFER 
X$BLOCK-XFER_IRP 
NXSPARTHER INIT_CSB 


ACL 
A 
$A 
$0 

DEA 
SIN 
SSEN 
SSEN 
SSEN 
$$ 
SEN 
BL 


SH 
NXSPARTNER™ RESPOND 
ee NGE_GUORUM 


3; End of vector List 


: Initialization code 
CNXSINIT 3 Do initializtion 


h this (for debugg 
; vecrore fe oint these routine 


; to work. 


WPwood —ooTWd——o 
PAWN & 


=—WOMM AMMNoOOw 


o 
w 


tor for patch space available in this module 
at this space is deallocated when the code ‘s loaded 


-PSECT $$$010,4 ; Octaword alignment 
: When initialization is complete and the initialization code is 
; deleted, this block is left at the head of the remaining code. 


ALIGN 
CLULOA_ 1iEND 
LVTAB + = CLULOA END. 


SOOOOOOOOO OO 0009.69.09 09 09 09 09 09 SI NINN NSN SIP PAA AAA AAA UII SE 
ASSEN AP UNAS SENS AER SO NO AOS OOO AE OOO ETN OOO 


San 
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MCRECTMEE RSE WARIO 


cnx GYORUM. INIT 3; Perform orn file initialization 
+ Branch on err 
ees INIT : Do load CsP code initialization 


the Sena and $DEQ Syston enakeal (module SYSENQDEQ) are Linked 
ng perpeece? then hook up the system service 


YSGEN parameter SY SPAGING MUST be set to 0 for this 


EXESSENQ ,EXESSDEQ 
ee 3; Is loadable SENQ service present? 
10$ 3; Not Linked with this module 
and Sua] TABLE 3 ane © Ihe Se writeable 
5G Exes coreees 3 P af to start of resident 

at ESDEQ+ 3 pon a ces 
B-308, ENQ+2,G*EXESENQ+4; Move addresses at loadable services 
W*EXESSDEQ+2 ,G*EXESDEQ+4; to complete JMP af instruct 
G* INISROONLY ; Make syetes read only again 
G*EXESGL =NONPAGED SG. R3 ; Address of t Blockets port Listhead 
W*CLULOA” START,RO . Address of block to deallocate 
#cl LOA TNJEND=CLULOA START.R1 ; Length of block to deallocate 

YH W*CLULOA_ INIEND+8 : Compute new Length 
PektLa CATE vy BEE A this piece of memory 

3; Return 

G*EXESENQ 3; Absolute jump instruction 


PATCH_END-PATCH_BEGIN 
PATCH BEGIN 


4 
End of initialization code 


SUBTYP_ = DYNSC_CC cis, - 
FACILITY= <CLUSTERS 


DEALLOCAT 3 Free initialization code 
NORMAL ,R ; Set success ; atus 
: Return from initialization 


tah ad 


CLUSTRLOA 


Vv 


END 


$e 


Bos 


CLUSTRLOA 
Symbol table 


CLULOA_END 


ANG 
CNXSDEALL_ASG 
CNXSDEALL “UARACDRP. ep 
CNKSO 15K K_CHANGE 


4‘ 
CNXSINIT_ CDRP 
CNXSPARTRER_F INISH 


NXSPARTNER_RESPOND 
CNXSPATCH 
CNXSPOWER_FAIL 
CNXSQUORUA I 
CNXSSEND_MAY_MSGS 
CNX MSG 
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RETeAeee 
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Reeeeene 
RERKRREE 
RReeeeee 
ReReeeee 
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ReRERERE 
ReEREEAEE 
REARAREEE 
RRARRREE 
RRRERARE 
RRRERAEE 
RRAERREE 
00000186 RG 
RRARREEE 
RReeeeee 
RRRRRREE 
RRReREKE 
RRRAEREE 
Reeekeee 
Reeeeeee 
Reeeeene 
RRERERAE 


000024 R 
8000000$ 
00000062 
teeeeaeeely GX 
gekeereelyy GX 
eekkeree 
eeeerene 
eetrenee 
eeeerere 
grereenee 
eeeeeeee 
eeeeeere 
eeeeeere 
eeterene 
eeeeeeee 
greeeeee 
eererere 
gerereee 
reeeerer 
gereeene 
eerterene 
gererere 
eeeeeere 
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ee 


0000007 


= 00000005 


THRAERAEE 


VAX/VMS 
SYS.SR 


>< OC OC OK OE OE OE OE OE OE OE 


5 


CLUSTRLOA - Cluster Loadable Code : 1g~seb= 1386 9: ¢3: 99 AX/VMS 


ro_V04-00 Page 3 CNX 
Psect synopsis =SEP=1 SYS. eRe LUSTR (2) 


4- 
»MAR;1 


! Psect synopsis ! 


pamoan er emonaccmacand 


PSECT name Allocation PSECT No. Attributes 

. ABS . 0000000 (¢ 8-3 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NO NOWRT NOVEC BYTE 

SABS$ 0 ( -) Q1¢ +1.) \NOPIC USR CON ABS LCL NOSHR' EXE NOV YTE 
999 00001 ( ¢38°3 ¢ ( ¢° NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC 20 

$$$000 QOOOO18E ( 5398.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC 20 

$$$010 O0O0002E ( 46.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC 20 


t¢oemecmeonmanmaeneome eanmacoe ¢ 


! Performance indicators ! 


presses eceeosnaneccaw senses ad 


Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.0 00:00:00 51 
Command processing 147 00: g: 3-3 0:00:0 73 
Pass 202 00:00:03.9 0:00:15.4 
Symbol table sort 0 00:00: 44 8:98 300-40 
Pass 2 74 00:00: 3 4 0: BM oe 
Symbol table output 9 88: 0:00.0 00:00: 0.59 
Psect synopsis output 0: 8: 0.0 00:00:00. 
Cross-reference output 00:00: 2-9 88:88:99 -9 
Assembler run totals 47 00:00:05.76 :00:24.1 


The working set Limit was 1350 pages. 

28211 bytes (56 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 257 non-local and 7 local symbols. 
305 source lines were read in Pass 1, producing 22 object records in Pass 2. 

12 pages of virtual memory were used to define 10 macros. 


owes ecocenree ene ese see ome mee + 


! ; Macro library statistics H 


Macro Library name Macros defined 
Seo REDUAGE: SYSLOA. cana ot -MLB;1 0 
esecenuAcs MLB; 1 5 
$255 HAT ES YSLIBJSTARLET. MLB;2 4 

Teraie ‘all Libraries) g 


394 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CLUSTRLOA/OBJ=0BJ$:CLUSTRLOA MASDS$:CSYS.SRCJPRMSW/UPDATE=(MASD$: CSYS.ENHJPRMSW) +MASD$: CSYS.SRCICLUSTR/UPDATE=(MASDS:( 
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